dd <- tibble("phenotype" = rnorm(15),
"id" = letters[1:15],
"set"= rep(1,15))
p1 <- dd |>
ggplot(aes(phenotype, set, label = id)) +
geom_label(position = position_jitter(height = 0.3, seed = 34)) +
geom_point(x = mean(dd$phenotype), y = 1, size=3) +
scale_y_continuous(NULL, breaks = NULL, limits = c(0.5, 3.5))
p1